'// För att skicka information
Sub SendFile(FileNum, Frm As Form)
Dim SendStr As String
Do While Not EOF(1)

'Hämtar rad för rad
Line Input #FileNum, SendStr

'Dumpar raden till modemet
Frm.MSComm1.Output = SendStr
Loop
End Sub