Guru do Excel e Power BI

Boa Tarde!

Desenvolvi um Formulário. Porem preciso que uma determinada caixa de texto aceite somente números, para que possa ser calculada dentro de uma macro. Oque posso fazer?

Boa tarde meu amigo.
Use assim:

Private Sub TextBox1_Change()
With Me.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Desculpe apenas números", vbInformation, "Alerta do Sistema"
.Value = vbNullString
End If
End With
End Sub