public class form1
dim verzeichnis as string = "c:\"
private sub form1_load
 
'Hier möchte ich den sub aus class1.vb abrufen
 
end sub
end class

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