Public Class Form1

    Private Sub AddName(ByRef output As Label)
        Dim fornavn, etternavn, textString, team As String, i As Integer = 1
        team = If(output.Name.ToString = "lbl1", "venstre", "høyre")
        textString = ""

        Do
            fornavn = InputBox(i & ". " & "Fornavn i " & team & " kolonne")
            If fornavn.Length = 0 Then Exit Do
            etternavn = InputBox(i & ". " & "Etternavn i " & team & " kolonne")
            If etternavn.Length = 0 Then Exit Do

            textString += fornavn & ", " & etternavn & vbCrLf
            i += 1
        Loop While 1

        output.Text += textString

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        AddName(lbl1)
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        AddName(lbl2)
    End Sub

End Class