Кнопка закрытия UserForm неактивна

[kss]

Помогите пожалуйста переделать код VB на VBA. Чтобы кнопка закрытия UserForm была неактивна? Вот код VB:

Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

Const MF_BYPOSITION = &H400&
Public Sub CloseMenu(frm As Form)
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(frm.hwnd, 0)
Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION)
Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION)
End Sub

Private Sub Form_Load()
CloseMenu Me
End Sub

[VictorM]

А может сделать так?
Как удалить крестик [X] из строки заголовка UserForm ?
Как заблокировать крестик [X] и удалить системное меню UserForm ?