Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c As Integer
        a = InputBox("Hur många nummer vill du entrera?")
        For i = 1 To a
            b = InputBox("Skriv in ett tal")
            ListBox1.Items.Add(b)
            If b < 0 Then
                ListBox1.Sorted = True
                MsgBox(ListBox1.SelectedItem(0) & "," & ListBox1.SelectedItem(a))
            Else

            End If

        Next
        c = a
        MsgBox(ListBox1.SelectedItem(0) & "," & ListBox1.SelectedItem(a))

    End Sub