Substitua no cod. o 44 p/ valor do ";" => 59

estudando o Código consegui assim:

Select Case KeyAscii
Case 8 'Backspace (seta de apagar)
Case 48 To 57 'Números de 0 a 9
Case 44 'Vírgula
Case 46
If InStr(Text_Preço_Beb.Text, ",") Then 'Se o campo já tiver vírgula então ele não adiciona
KeyAscii = 0 'Não adiciona a vírgula caso ja tenha
Else
KeyAscii = 44 'Adiciona uma vírgula
End If

If InStr(Text_Preço_Beb.Text, ".") Then 'Se o campo já tiver ponto então ele não adiciona
KeyAscii = 0 'Não adiciona ponto caso ja tenha
Else
KeyAscii = 46 'Adiciona um ponto
End If

Case Else
KeyAscii = 0 'Não deixa nenhuma outra caractere ser escrito
End Select