Hola gente estoy haciendo un conversor de divisas (euro, libra, dolar) y lo que necesito es q me ayuden a configurarlo para que solo me salgan 2 decimales en la conversion.. el programa tiene 3 botones (uno de cada divisa) y 2 textbox (uno donde se ingresa la cantidad de plata y otro donde aparece la plata convertida luego de hacer click en el boton) este es el codigo


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 = Text2.Text
Peso = Val(PesoS)

'Calculate
Dolar = Peso / 4.28

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

End Sub

Private Sub Euro_Click()



'Declaring the value's
Dim PesoS As String
Dim Peso As Double
Dim EuroS As String
Dim Euro As Double

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

'Calculate

Euro = Peso / 5.69

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

End Sub

Private Sub Libra_Click()


'Declaring the value's
Dim PesoS As String
Dim Peso As Double
Dim LibraS As String
Dim Libra As Double

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

'Calculate

Libra = Peso / 6.97

'Write to screen
LibraS = Str(Libra)
Text5.Text = LibraS

End Sub

Private Sub Text2_Change()

End Sub

alguien sabria decirme que poner y en donde?

hola compa checa esto y después comentas haber si es lo que buscas.quita Str y cambialo porFormatNumber , y el la parte (Libra) agregale ,2 quedando de la siguiente forma:
[COLOR="Red"] LibraS = FormatNumber(Libra,2)

Iniciado por lowellpelikno

hola compa checa esto y después comentas haber si es lo que buscas.quita Str y cambialo porFormatNumber , y el la parte (Libra) agregale ,2 quedando de la siguiente forma:
[COLOR="Red"] LibraS = FormatNumber(Libra,2)

Tomando una de tus salidas:
text5.text=Euros quedaria text5.text=format(Euros,"0###.##")