Vc pode manter esse código no textbox:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Numero(UserForm1.TextBox1.Text, KeyAscii) Then KeyAscii = 0
End Sub

A parte em vermelho vai ter que atualizar (Não sei se tem como padronizar isso tb)

E isto em um módulo:

Function Numero(ByVal texto As String, ByVal chave As String) As Boolean
'Permite que seja digitado "," apenas uma vez
If chave = 44 And InStr(texto, ",") <> 0 Then
chave = 0
End If

'Não permite letras e ponto.
If (chave < 48 Or chave > 57) And chave <> 8 And chave <> 44 Then
chave = 0
End If

If chave = 0 Then Numero = True

End Function

Abs

Obrigado gtsalikis, funcionou direitinho.

Tem como me ajustar com a continualção desse código, eu inseri a parte abaixo na Function, para não deixar que eu digite mais de 2 casas após a virgula, o problema é que quando digito as 2 casas decimais ele não permite eu preencher mais nada, eu queria que permitisse caso o digito estivesse a esquerda da virgula, tem como ?

If InStr(Texto, ",") <> 0 And Len(Mid(Texto, InStr(Texto, ",") + 1, Len(Texto))) = 2 Then
chave = 0
End If