Сохранение данных в файле

Private Sub Form_Load()
    Dim o
    Set o = CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\result.txt")
    o.Write "10 баллов" & vbCrLf & "20 баллов" & vbCrLf & "30 баллов"
    CreateObject("Shell.Application").open "c:\result.txt"
End Sub

Private Sub Form_Load()
    Dim o, s$, t$
    Set o = CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\result.txt")
    For f = 1 To 2 ^ 32
        s = InputBox("Введите " & f & " оценку...", , f * 10)
        If Len(s) Then Else Exit For
        If IsNumeric(s) Then t = t & s & " Баллов" & vbCrLf Else Exit For
    Next
    o.Write t: CreateObject("Shell.Application").open "c:\result.txt"
End Sub

Private Sub Form_Load()
    Dim o, s$, t$, f&
    Set o = CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\result.txt")
    For f = 1 To 2 ^ 30
        s = InputBox("Введите " & f & " оценку...", , f * 10)
        If Len(s) Then Else Exit For
        If IsNumeric(s) Then t = t & s & " Баллов" & vbCrLf Else Exit For
    Next
    o.Write t: CreateObject("Shell.Application").open "c:\result.txt"
    CreateObject("SAPI.SpVoice").Speak "and" & (f - 1) * 10 & "points"
End Sub

Private Sub Form_Load()
    Dim o, s$, t$, f&
    For f = 1 To 2 ^ 30
        s = InputBox("Введите " & f & " оценку...", , f * 10)
        If Len(s) Then Else Exit For
        If IsNumeric(s) Then t = t & s & " Баллов" & vbCrLf Else Exit For
    Next
    s = Trim(Environ("homedrive") & "\" & InputBox("Имя файла ?", , "result") & ".txt")
    Set o = CreateObject("Scripting.FileSystemObject").CreateTextFile(s)
    o.Write t: CreateObject("Shell.Application").open (s)
    CreateObject("SAPI.SpVoice").Speak "and" & (f - 1) * 10 & "points"
End Sub