[VB.NET] Sub kann nicht aufgerufen werden

[NoNameMT]

Hey Leute,

ich habe mal nen kleines Problem bei VB.NET. Ich bin grade dabei nen kleines Tool für SchuelerVZ zu schreiben aus langeweile halt

Also folgende Situation:
Ich habe ein Modul SocialNetwork.vb in der habe ich eine Class Client angelegt.

In dieser Klasse sind die ganzen Subs und Funktionen, z.B. fürs Freunde adden etc. pp.

In meiner Form habe ich dann

Dim svz As New SocialNetworks.Client

deklariert.

Nun rufe ich halt die ganzen Funktionen per Punktnotation auf.
Also z.B. für den Nachrichtenversand:

Private Sub cmdSendMsg_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles cmdSendMsg.Click
        svz.sendeNachricht(txtEmpfaenger.Text, txtBetreff.Text, txtNachricht.Text)
    End Sub

svz.Login steht halt in dem Modul SocialNetworks und sieht folgender Maßen aus:

Public Sub sendeNachricht(ByVal empfaengerID As String, ByVal Betreff As String, ByVal Nachricht As String)
        If eingeloggt = True Then

            'Formkey + IV holen
            Dim Formkey As String = getNachrichtenFormkey()
            Dim IV As String = getNachrichtenIV()
            'Zu sendene Daten 
            Dim postData As String = "state=&messageId=&recipientIds%5B%5D=" & empfaengerID & "&searchfield=&subject=" & Betreff & "&message=" & Nachricht & "&recipientIdForHistory=" & empfaengerID & "&formkey=" & Formkey & "&iv=" & IV

            Dim antwort As String = request(postData, "/Messages/WriteMessage", True)
            'Antwort auswerten
            If antwort.Contains("Fehler!") Then
                'Falsche E-Mail-Adresse oder falsches Passwort!
                Throw New Exception("Fehler beim Senden der Nachricht")
            End If
        Else
            Throw New Exception("Nicht eingeloggt")
        End If
End Sub

Soo das ganze Funktioniert einwandfrei. Jetzt wollte ich die Sub kopieren und so umschreiben, dass ich jemanden Gruscheln kann.

Das habe ich auch getan:

Public Sub gruschelUser(ByVal profilID As String)
        If eingeloggt = True Then
            'Formkey + IV wie immer holen
            Dim sFormkey As String = getGruschelFormkey(profilID)
            Dim sIV As String = getGruschelIV(profilID)
            Dim sSubmit As String = getSubmit(profilID)

            Dim postData As String = "submit=" & sSubmit & "&referrer=%2FProfile%2F" & profilID & "&id=" & profilID & "&formkey=" & sFormkey & "&iv=" & sIV
            Dim antwort As String = request(postData, "/Gruscheln/DialogGruscheln/" & profilID, True)
        Else
            Throw New Exception("Nicht eingeloggt")
        End If
End Sub

Nun sollte ich die Sub ja genau so aufrufen können, wie die sendeNachricht Sub. Das geht aber nicht. Ich kann mit der Punktnotation die Sub gruschelUser nicht aufrufen

Könnt ihr mir evtl dabei helfen bzw. sagen, woran das liegen könnte?

Vielen Dank schonmal

Gruß
NoNameMT