Cleanup codes

Hi guys,
Im terrible at cleaning, but i think a lot of these things can be cleaner and shorter. So i will post some, check them out if you like!

Code:

---

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim teller As Integer
        Dim Wrap As String
        Dim lijn As String = ""
        Dim ster As String = "*"
        Wrap = Chr(13) & Chr(10)

        ster = TextBox1.Text
        For teller = 1 To 8
            lijn = lijn + "*"
            ster = ster & Wrap & lijn
        Next teller

        TextBox1.Text = ster

---

Code:

---

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox2.Items.Clear()

        For teller_1 = 0 To ListBox1.SelectedItems.Count - 1
            ListBox2.Items.Add(ListBox1.SelectedItems(teller_1))
        Next

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        Dim teller As Integer
        teller = teller - 1
        For teller = 1 To items
            ListBox1.Items.Add(teller)
        Next
    End Sub

---

Code:

---

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For teller = 1 To 3
            naamtabel(1, teller) = InputBox("Vertel me maar, wat is je voornaam?")
            naamtabel(2, teller) = InputBox("En wat is de achternaam van " & naamtabel(1, teller))
        Next teller

        For teller2 = 1 To 3
            ComboBox1.Items.Add((naamtabel(1, teller2)) & " " & naamtabel(2, teller2))
        Next teller2
    End Sub

---

Code:

---

Public Class Form1
    Dim C(4) As Double
    Dim Type(4) As String
    Private Sub BT_Lager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Lager.Click
        Dim levensduurh, toerental, levensduurowm As Integer

        If txtLevensduurMlj.Text = "" Then
            levensduurh = txtLevensduurH.Text
            toerental = txtToerental.Text
            levensduurowm = levensduurh * (toerental * 60)
            txtLevensduurMlj.Text = levensduurowm
        End If

        If (C(4) / txtBelasting.Text) ^ 3 < Val(txtLevensduurMlj.Text) Then
            txtType.Text = "Belasting te hoog"
            Exit Sub
        Else

            Dim teller As Integer = -1
            Do
                teller = teller + 1
            Loop Until (C(teller) / txtBelasting.Text) ^ 3 > Val(txtLevensduurMlj.Text)
            txtType.Text = Type(teller)
        End If


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        C(0) = 540
        C(1) = 715
        C(2) = 806
        C(3) = 936
        C(4) = 1110
        Type(0) = "618, 623, 628 of 638"
        Type(1) = "619"
        Type(2) = "604"
        Type(3) = "624"
        Type(4) = "634"
    End Sub
End Class

---

Code:

---

Public Class Form1
    Dim krachtprofiel, afstandA, lengteprofiel, krachtA, krachtB, maxM As Double

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim enter As String = Chr(10) & Chr(13)
        Dim afstandA1 As String = ""
        Dim krachtprofiel1 As String = ""
        Dim lengteprofiel1 As String = ""

        If IsNumeric(txtafstandA.Text) = False Then
            afstandA1 = "Bij de afstand van kracht F tot punt A moet een numerieke waarde worden ingevoerd."
            If txtafstandA.Text = "" Then afstandA1 = "Voer een waarde in voor de de afstand van kracht F tot punt A."
        End If
        If IsNumeric(txtkrachtprofiel.Text) = False Then
            krachtprofiel1 = "Bij de kracht F op het profiel moet een numerieke waarde worden ingevoerd."
            If txtkrachtprofiel.Text = "" Then krachtprofiel1 = "Voer een waarde in voor de kracht F op het profiel."
        End If
        If IsNumeric(txtlengteprofiel.Text) = False Then
            lengteprofiel1 = "Bij de lengte van het profiel moet een numerieke waarde worden ingevoerd."
            If txtlengteprofiel.Text = "" Then lengteprofiel1 = "Voer een waarde in voor de lengte van het profiel."
        End If
        If IsNumeric(txtlengteprofiel.Text) = True And IsNumeric(txtkrachtprofiel.Text) = True And IsNumeric(txtafstandA.Text) = True Then
        Else
            MessageBox.Show(afstandA1 + enter + krachtprofiel1 + enter + lengteprofiel1)
            Exit Sub
        End If
        PictureBox1.Refresh()
        Dim papier As Graphics = PictureBox1.CreateGraphics
        Dim potlood As Pen = Pens.Black
        Dim potlood2 As Pen = Pens.Red
        Dim verhouding, minplus As Integer

        krachtprofiel = txtkrachtprofiel.Text
        afstandA = txtafstandA.Text
        lengteprofiel = txtlengteprofiel.Text
        krachtB = (afstandA * krachtprofiel) / lengteprofiel
        krachtA = krachtprofiel - krachtB
        txtkrachtA.Text = krachtA
        txtkrachtB.Text = krachtB

        If krachtprofiel < 0 Then minplus = 20
        If krachtprofiel >= 0 Then minplus = 130

        verhouding = (afstandA / lengteprofiel) * 240
        maxM = krachtprofiel * afstandA

        papier.DrawLine(potlood, 5, 75, 245, 75)
        papier.DrawLine(potlood2, 5, 75, (verhouding + 5), minplus)
        papier.DrawLine(potlood2, (verhouding + 5), minplus, 245, 75)

    End Sub

---