Public Class Form1
 Dim Input As Decimal
 Dim Masse As Decimal
 Dim Multiplikator As Decimal
 Dim Answer As Decimal
 Dim Faktor As Decimal
 Dim Out2 As String
 
 Private Sub ButtonSubmit_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles ButtonSubmit.Click
 Multiplikator = 1
 Input = TextBoxInput.Text
 
 If ComboBox1.Text = "g" Then
 Faktor = Multiplikator * 1
 ElseIf ComboBox1.Text = "mg" Then
 Faktor = Multiplikator / 1000
 ElseIf ComboBox1.Text = "mcg" Then
 Faktor = Multiplikator / 1000000
 ElseIf ComboBox1.Text = "ng" Then
 Faktor = Multiplikator / 1000000000
 ElseIf ComboBox1.Text = "pg" Then
 Faktor = Multiplikator / 1000000000000
 ElseIf ComboBox1.Text = "mol" Then
 Faktor = Multiplikator * 1
 ElseIf ComboBox1.Text = "mmol" Then
 Faktor = Multiplikator / 1000
 ElseIf ComboBox1.Text = "mcmol" Then
 Faktor = Multiplikator / 1000000
 ElseIf ComboBox1.Text = "nmol" Then
 Usw... 
 
 ElseIf ComboBox3.Text = "mol" Then
 Faktor = Multiplikator * 1
 ElseIf ComboBox3.Text = "mmol" Then
 Faktor = Multiplikator * 1000
 ElseIf ComboBox3.Text = "mcmol" Then
 Faktor = Multiplikator * 1000000
 ElseIf ComboBox3.Text = "nmol" Then
 Faktor = Multiplikator * 1000000000
 ElseIf ComboBox3.Text = "pmol" Then
 Faktor = Multiplikator * 1000000000000
 End If
 
 Multiplikator = Faktor
 
 If ComboBox4.Text = "l" Then
 Faktor = Multiplikator * 1
 ElseIf ComboBox4.Text = "ml" Then
 Faktor = Multiplikator * 1000
 ElseIf ComboBox4.Text = "mcl" Then
 Faktor = Multiplikator * 1000000
 ElseIf ComboBox4.Text = "nl" Then
 Faktor = Multiplikator * 1000000000
 ElseIf ComboBox4.Text = "pl" Then
 Faktor = Multiplikator * 1000000000000
 End If
 
 Multiplikator = Faktor
 LabelMasse.Text = Masse
 Masse = 12
 
 If ComboBox1.Text = "mol" Or ComboBox1.Text = "mmol" Or ComboBox1.Text = _
   "mcmol" Or ComboBox1.Text = "nmol" Or ComboBox1.Text = "pmol" Then
 If ComboBox3.Text = "mol" Or ComboBox3.Text = "mmol" Or ComboBox3.Text = _
 "mcmol" Or ComboBox3.Text = "nmol" Or ComboBox3.Text = "pmol" Then
 Answer = Input * Multiplikator
 End If
 End If
 If ComboBox1.Text = "mol" Or ComboBox1.Text = "mmol" Or ComboBox1.Text = _
   "mcmol" Or ComboBox1.Text = "nmol" Or ComboBox1.Text = "pmol" Then
 If ComboBox3.Text = "g" Or ComboBox3.Text = "mg" Or ComboBox3.Text = "mcg" Or _
 ComboBox3.Text = "ng" Or ComboBox3.Text = "pg" Then
 Answer = Input * Masse * Multiplikator
 End If
 End If
 
 LabelAnswer.Text = Answer & ComboBox3.Text & "/" & ComboBox4.Text
 
 End Sub