Vb6 Pesos a Dolares (Codigo Aki)

[frijolito]

 
Bueno Aki Dejo Esto Para Desarroyar Mas los conocimientos ··Determina Cuantos Dolares son si insertamos la Cantidad De pesos··
/********************************/
Private Sub cmdConvierte_Click()
   Const dolar As Currency = 11.05
   Dim Pesos As Currency
   Dim NumDolares As Currency
   Dim Pesos2 As Integer
      Pesos = Val(InputBox("Introduzca La Cantidad De Pesos" & vbCrLf & "Pesos a Dolares"))
     
   NumDolares = Pesos / dolar
Print "Pesos Insertados: ["; Pesos; "]",
Print "Numero de Dolares :["; NumDolares; "]"
End Sub
/******************/
Tarea: Conviertan a Euros pero con  funciones Euro= 1.2950 dls,  Sale suerte Dejen lo intento y Pongo la respuesta despues que termine jjejejjee