min sub er usynlig ?

Kode:

Public Class Form1

    Public Sub sucker(ByVal Xurl)
        Dim WorkDir, PythonDir, SaveDir
        WorkDir = "C:\"
        SaveDir = "C:\encoded\"
        PythonDir = ("C:\python.exe ")
        Shell(PythonDir & WorkDir & "Xtube-dl.py media.php?m=" & Xurl & " -o " & SaveDir & Xurl & ".flv", AppWinStyle.Hide, True, -1)
    End Sub


 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
   
    LOOP START
   
        KODE
   
    Me.sucker(TheUrl)
   
    KODE
   
    LOOP SLUT


Den køre ikke koden fra SUB hvad er det lige jeg gør galt?