[VB.NET] Teilerfremd

Hallöle,
Habe ein Problem ich möchte eine Funktion schreiben die eine Teilerfremde Zahl von 3 anderen Zahlen ausgibt bzw in eine Variable übergibt
Habe mir das etwa so gedacht...

Code:

---

while 1:
    if Teilerfremd(a,public_fi)==1 and a!=p and a!=q:
        print a,
    if a==1000:
        break
    a+=1

---

Das ist jetz nur ein Beispiel.. ich weiß einfach nicht wie ich das in VB.net code bekommen... :?:
Vlt habt ihr eine idee
Mfg Impi

Added after 5 hours 57 minutes:

Habe jetz bissel rumgecodet aber es klappt immernoch nicht
vlt findet ihr einen denkfehler ich finden keinen :?:

Code:

---

Private Function pubKey_e(ByRef teiler, ByVal primFI, ByVal primOne, ByVal primTwo)
        For c As Integer = 2 To 1000

            If Teilerfremd(teiler, primFI) = 1 And teiler <> primOne And teiler <> primTwo Then
                Console.Write(teiler)
            End If
        Next c
    End Function

    Private Function Teilerfremd(ByRef teiler, ByVal primFI)
        For c As Integer = 2 To primFI
            If teiler Mod c = primFI Mod c = 0 Then
                Return 0
            Else
                Return 1
            End If
        Next c
    End Function

---

Hoffe auf Hilfe
Mfg Impi