求解，有几行代码，若用VBA该怎么写呢？

求解各位老师帮忙

有下面几行代码，若用VBA该怎么写呢？

Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Public nMsg As Long
Private Sub Command1_Click()
nMsg = RegisterWindowMessage("Stock")


PostMessage &H100B5C, nMsg, &H73F98D, 0
End Sub