Private Sub Form_Load()
Dim umr As New Umrechnung
MsgBox umr.KmToMile(13)
End Sub

Public Function KmToMile(ByVal Km _
      As Double) As Double
        KmToMile = 0.6214 * Km
    End Function
 
    Public Function MileToKm(ByVal Mile _
      As Double) As Double
        MileToKm = 1.609 * Mile
    End Function
 
    Public Function LitreToUSGallon( _
      ByVal Litre As Double) As Double
        LitreToUSGallon = Litre * 0.264
    End Function
 
    Public Function USGallonToLitre( _
      ByVal USGallon As Double) As Double
        USGallonToLitre = USGallon * 3.785
    End Function