Hvordan?

Hej!

Jeg har fået fat i denne har kode, men jeg ved ikke helt hvordan jeg skal bruge den, er der nogle der kan hjælpe mig?

Er det ikke noget med at det første kal ind i et modul?
Men hvordan for jeg den til at ringe op og alt det der?

Public Function Ucp(ByVal Tlf_nr As String, ByVal Besked As String) As String
  Dim Len_ucp As String, Ucp_start As String, Besked_hex As String
  Dim Temp As String, Karakter As Integer, Tegnsum As Long
\'Filtrer Besked
For Karakter = 1 To Len(Besked)
  If Mid$(Besked, Karakter, 1) = \"@\" Then Temp = Temp + Chr$(0): GoTo Nekst
  If Mid$(Besked, Karakter, 1) = \"æ\" Then Temp = Temp + Chr$(29): GoTo Nekst
  If Mid$(Besked, Karakter, 1) = \"ø\" Then Temp = Temp + Chr$(12): GoTo Nekst
  If Mid$(Besked, Karakter, 1) = \"å\" Then Temp = Temp + Chr$(15): GoTo Nekst
  If Mid$(Besked, Karakter, 1) = \"Æ\" Then Temp = Temp + Chr$(28): GoTo Nekst
  If Mid$(Besked, Karakter, 1) = \"Ø\" Then Temp = Temp + Chr$(11): GoTo Nekst
  If Mid$(Besked, Karakter, 1) = \"Å\" Then Temp = Temp + Chr$(14): GoTo Nekst
  If Asc(Mid(Besked, Karakter, 1)) < 32 Then Temp = Temp + \"\": GoTo Nekst
  If Asc(Mid(Besked, Karakter, 1)) > 122 Then Temp = Temp + \"\": GoTo Nekst
  Temp = Temp + Mid(Besked, Karakter, 1) \'Ingen ændring
Nekst:
Next Karakter
Besked = Temp
  \'Beregn antallet af karaktere i UPC-strengen
  Len_ucp = Format$(34 + (2 * Len(Besked)), \"00000\")
  \'Omsæt besked til hex
  For Karakter = 1 To Len(Besked)
      Temp = Hex$(Asc(Mid(Besked, Karakter, 1)))
      If Len(Temp) = 1 Then Temp = \"0\" + Temp
      Besked_hex = Besked_hex + Temp
  Next Karakter
  \'Sammensæt UCP-streng
  Ucp_start = \"00/\" & Len_ucp & \"/O/30/\" & Tlf_nr & \"/////////\" & Besked_hex & \"/\"
  \'Beregn checksum
  For Karakter = 1 To Len(Ucp_start)
      Tegnsum = Tegnsum + Asc(Mid(Ucp_start, Karakter, 1))
  Next Karakter
  Ucp = Chr(2) & Ucp_start & Right(Hex$(Tegnsum), 2) & Chr(3)
End Function

For at bruge funktionen skal du ringe til:
43625250  v. 9600 baud

Når du så modtager
CONNECT 9600
sender du beskeden således
mscomm1.output = Ucp(\"12345678\", \"Dette er en besked til tlfnr. 12345678\")