Программа по учёту обмена валют

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    Dim s, ss$, s1$, i&, sx$, ii&, sa$
    
Sub main()
    s = I_PI
    s = I_PI2
    Form1.Show
End Sub
 
Private Function I_PI()
    s1 = Environ("temp") & "\Aut_22.txt"
    s = "http://www.mail.ru/"
    URLDownloadToFile 0, s, s1, 0, 0
    ss = "USD "
        Open s1 For Input As #1
         While Not EOF(1)
           Line Input #1, s
           If InStr(s, ss) > 0 Then
             i = InStr(s, ss) + Len(ss)
             ii = i
               Do
                sa = Mid(s, ii, 1)
                ii = ii + 1
                sx = sx & sa
               Loop Until sa = "<"
             sx = Mid(sx, 1, Len(sx) - 1)
             GoTo xren
           End If
        Wend
xren:
      Close #1
      Kill s1
        Form1.Text1.Text = sx
        Form1.Text2.Text = RUB
      I_PI = sx
      sx = ""
   End Function
   
   Private Function I_PI2()
 
    s1 = Environ("temp") & "\Aut_22.txt"
    s = "http://www.mail.ru/"
    URLDownloadToFile 0, s, s1, 0, 0
    ss = "RUB&nbsp;"
        Open s1 For Input As #1
         While Not EOF(1)
           Line Input #1, s
           If InStr(s, ss) > 0 Then
             i = InStr(s, ss) + Len(ss)
             ii = i
               Do
                sa = Mid(s, ii, 1)
                ii = ii + 1
                sx = sx & sa
               Loop Until sa = "<"
             sx = Mid(sx, 1, Len(sx) - 1)
             GoTo xren
           End If
        Wend
xren:
      Close #1
      Kill s1
        Form1.Text2.Text = sx
      I_PI2 = sx
   End Function

Private Sub Command1_Click()
Text5.Text = Val(Text1.Text) / Val(Text3.Text)
End Sub
 
Private Sub Command2_Click()
Text6.Text = Val(Text2.Text) * Val(Text4.Text)
End Sub