[RESOLVED] Calling a function and it's arguments

[Jenova]

lol sorted.

Private Sub Form_Load()
 
    Dim handle As Integer
    Dim file As String
    
    handle = FreeFile
    Open "C:\Documents and Settings\Carl\Desktop\index.htm" For Input As handle
        Do While Not EOF(handle)
            file = Input(LOF(handle), #handle)
            Text1.TextRTF = file
        Loop
    Close #handle
 
End Sub

Thanks guys