Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '==== Display all 5 input values
        'INPUT:  Get all 5 values.
        Dim jmg1, jmg2, jmg3, jmg4, jmg5
        Call getall(jmg1, jmg2, jmg3, jmg4, jmg5)

        'PROCESS - none

        'OUTPUT:  Display all 5 values.
        Call showit(Format(jmg1))
        Call showit(Format(jmg2))
        Call showit(Format(jmg3))
        Call showit(Format(jmg4))
        Call showit(Format(jmg5))
    End Sub

    Sub getall(ByRef jmg1 As String, ByRef jmg2 As String, ByRef jmg3 As String, ByRef jmg4 As String, ByRef jmg5 As String)
        '==== Get all input values
        jmg1 = Val(Me.TextBox1.Text)
        jmg2 = Val(Me.TextBox2.Text)
        jmg3 = Val(Me.TextBox3.Text)
        jmg4 = Val(Me.TextBox4.Text)
        jmg5 = Val(Me.TextBox5.Text)
    End Sub

   
    Sub showit(ByVal x As String)
        '==== Display one value
        Me.ListBox1.Items.Add(x)
    End Sub