[VB.NET] function o sub

[El-modifica]

Salve a tutti
scusate il disturbo ma ultimamente sto impazzendo
con una function che mi dovrebbe restituire vero o falso.

Public Class form1
dim vuoto as boolean

La lancio da una sub

controllo_caselle_testo(vuoto)

    Public Sub controllo_caselle_testo(ByVal vuoto As Boolean)
        If TextBox1.Text = "" Then
            MsgBox("Manca il Nome", MsgBoxStyle.Critical)
            vuoto = True
            Exit Sub
        End If
    End Sub

cortesemente mi dite dove sbaglio, visto che mi restituisce
sempre false ?
grazie 1000
ciao