プログラミングのfanction一生使えないかも

Option Explicit
'テキストファイルに書き出す

Dim Input

Input = InputBox("開始数字を入力してください")
MsgBox (Input & "を入力しました。")

Do

Do Until Input > 1
If Input Mod 2 = 0 Then
Input = Input / 2

ElseIf Input Mod 2 = 1 Then
Input = ( 3 * Input ) + 1

ElseIf Input = 1 Then
Exit Do

OutputText Input
'テキストファイルへ出力
End if
Loop

Dim objFSO
Dim objText

Function OutputText(ByVal strMessage As String)
'ファイルシステムオブジェクト
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
'テキストファイルを開く
Set objText = objFSO.OpenTextFile("C:\Users\n\Desktop\コラッツマクロ\★結果★.txt", 8, True)

objText.write strMsg
objText.write vbCrLf

objText.close

'オブジェクト変数をクリア
Set objFSO = Nothing
Set objText = Nothing

End Function

Option Explicit
'テキストファイルに書き出す
Dim Input
Input = InputBox("開始数字を入力してください")
MsgBox (Input & "を入力しました。")

OutputText "テキストファイルに書き出すテストです"

'テキストファイルへ出力
Function OutputText(ByVal strMsg)

Dim objFSO
Dim objText

'ファイルシステムオブジェクト
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
'テキストファイルを開く
Set objText = objFSO.OpenTextFile("C:\Users\n\Desktop\コラッツマクロ\出力テスト.txt", 8, True)

objText.write strMsg
objText.write vbCrLf

objText.close

'オブジェクト変数をクリア
Set objFSO = Nothing
Set objText = Nothing

End Function