Sub AKCreateGoalStatement word vba

 Sub AKCreateGoalStatement()

    Dim goal As String

    Dim month As String

    Dim year As String

    Dim emotion As String

    

        monthAndYear = InputBox("Enter the goal month and year(e.g., November 2025):")

    goal = InputBox("Enter the goal (how to know it's achieved):")

    emotion = InputBox("Enter the emotion you'll feel when achieved:")

    

    

    Dim statement As String

    statement = "It is now " & monthAndYear & " and " & goal & " and " & emotion & "."

    

    Selection.TypeText Text:=statement & vbCrLf

End Sub