Vb kodunu vba da çalıştırma

[fireman64]

Selam aşağıdaki kod ile vb projesi ile printerda kağıdı kestirebiliyorum. Fakat kodu VBA projesine uyarlayamadım yardımcı olabilir misiniz.

Private Sub Form_Load()
Dim P As Object
 
For Each P In Printers
   If P.Port = "USB001:" Then
      Set Printer = P
      Exit For
   End If
Next P
 
Printer.Print "Hello"
Printer.Print Chr$(&H1D); "V"; Chr$(66); Chr$(0);

Printer.EndDoc
 Unload Me
End Sub