Public Class Class1
 
    Public Sub sub1(ByVal verzeichnis As String)
        If Not IO.Directory.Exists(verzeichnis) Then
            IO.Directory.CreateDirectory(verzeichnis)
        End If
    End Sub
 
End Class

Dim c1 As New Class1   'Instanz von class1 erstellen
c1.sub1("C:\whatever") 'Methode sub1 mit String für den Parameter Verzeichnis 
' aufrufen