Visual Basic - Necesito ayuda con un conversor de monedas

Hola gente, estoy haciendo un conversor de monedas y la verdad q soy muy novato.. para hacerlo tome un modelo de youtube y cambie unas cosas.. me quedo asi


Private Sub Dolar_Click()



'Declaring the value's
Dim PesoS As String
Dim Peso As Double
Dim DolarS As String
Dim Dolar As Double

'Reading the screen
PesoS = Textbox1.Text
Peso = Val(PesoS)

'Calculate
Dolar = Peso * 4,28

'Write to screen
DolarS = Str(Dolar)
Textbox4.Text = DolarS

End Sub


eso es el q hice yo y esto es lo q esta en un video

Private Sub cmdEuro_Click()



'Declaring the value's
Dim DollarS As String
Dim Dollar As Double
Dim EuroS As String
Dim Euro As Double

'Reading the screen
DollarS = txtDollar.Text
Dollar = Val(DollarS)

'Calculate
Euro = Dollar * 0.788705734

'Write to screen
EuroS = Str(Euro)
txtEuro.Text = EuroS

End Sub

cuando le mando play escribo el numero, toco el boton de dolares y me tira error de sintaxis y me marca "Dolar = Peso * 4,28" de un color y Private Sub Dolar_Click() en amarillo y con una flecha al costado

Alguien me podria ayudar? lo necesito para la tarde!!!

Pone 4.28 en vez de 4,28

Me parece que complicas demasiado el asunto, si realmente usas Vb 6,0, he probado lo siguiente y funciona, se podria simplificar mas pero no quiero complicar las cosas.

Dos cajas de texto y un boton


Private Sub Command1_Click()
Dim Pesos As Double, Dolares As Double
Pesos = Text1
Dolares = Pesos * 4.28
Text2 = Dolares
End Sub

Tendras que verificar que el usuario solo ingresa numeros pero eso ya es otra cuestion,

otra forma:
dos textbox mas este code

Private Sub Text1_Change()
Dim r As Double
On Error Resume Next
r = Text1
Text2 = r * 4.28
End Sub