Sub HalloDu()
    Dim i, j
    Dim meinText 

    meinText = "Eine Astronomische Einheit sind im Durchschnitt in Meter:"
    i = 149597870700#
    Debug.Print meinText
    Debug.Print i
    meinText = "Eine Astronomische Einheit sind im Durchschnitt in Lichtsekunden:"
    Debug.Print meinText
    j = 499.004784
    Debug.Print j
End Sub