ElseIf zus = "RéaumurNewton" Then Text2.Text = eins * 0.4125
  ElseIf zus = "RéaumurRankie" Then Text2.Text = eins * 2.25 + 491.67
  ElseIf zus = "RéaumurRomer" Then Text2.Text = eins * 21 / 32 + 7.5
  ElseIf zus = "RomerCelsius" Then Text2.Text = (eins - 7.5) * 40 / 21
  ElseIf zus = "RomerDelisle" Then Text2.Text = (60 - eins) * 20 / 7
  ElseIf zus = "RomerFahrenheit" Then Text2.Text = (eins - 7.5) * 24 / 7 + 32
  ElseIf zus = "RomerKelvin" Then Text2.Text = (eins - 7.5) * 40 / 21 + 273.15
  ElseIf zus = "RomerNewton" Then Text2.Text = (eins - 7.5) * 22 / 35
  ElseIf zus = "RomerRankie" Then Text2.Text = (eins - 7.5) * 24 / 7 + 491.67
  ElseIf zus = "RomerRéaumur" Then Text2.Text = (eins - 7.5) * 32 / 21
  Else
 
  End If
 
GoTo uberspringen
 
infotext:
MsgBox "Fehler!  Als Trennzeichen darf kein . sein, sondern ein ,  ", vbOKOnly, _
  "ACHTUNG"
GoTo uberspringen
infotext2:
MsgBox "Geben Sie eine Nummer ein.", vbOKOnly, "ACHTUNG"
GoTo uberspringen
infotext3:
MsgBox "        Temperatur, die Sie eingegeben haben" & Chr(10) & Chr(13) & _
  "ist niedriger als der Absolute Nullpunkt  -273,15°C  ", vbOKOnly, "ACHTUNG"
 
uberspringen:
End Sub
Private Sub Form_Unload(Cancel As Integer)
 
 UnloadForms
 End
 
End Sub