Private Sub Ok_Click()
GotoURL ("")
End Sub

Sub GotoURL(URL As String)
Dim Res As Long
Dim TFile As String, Browser As String, Dum As String

TFile = App.Path + "\test.htm"
Open TFile For Output As #1
Browser = String(255, " ")
Res = FindExecutable(TFile, Dum, Browser)
Browser = Trim$(Browser)

If Len(Browser) = 0 Then
MsgBox "Cannot find browser"
Exit Sub
End If

Res = ShellExecute(Me.hwnd, "open", Browser, URL, Dum, SW_SHOWNORMAL)
If Res <= 32 Then
MsgBox "Cannot open web page"
Exit Sub
End If
End Sub

can someone explain in simple language wat the program does step my step.:!:. Man this homework to understand is making me bite my nails

It is visual basic (cant tell which version but i think its .NET)

dont know what it does really