currency converter GBP (£'s) to Euro's

[beachbum]

Jimbo
After lots of research I have come up with a suitable currency conversion program for you...

Function Rand(CurrName as String, Conversion as Double, _
   Amount as Double) as Double
 
     Select Case CurrName
            Case "AUD": Rand = Amount * 0
            Case "GBP": Rand = Amount * 0
            Case "USD": Rand = Amount * 0
            Case "YEN": Rand = Amount * 0
            Case "EUR": Rand = Amount * 0
            Case "DM": Rand = Amount * 0
            Case "FF": Rand = Amount * 0
            Case "ITL": Rand = Amount * 0
     End Select
End Function