Visual Basic - Vector desde un TEXTBOX

Public Class Form1

    Dim contador As Integer

    Private sueldo(3) As Integer

    Dim f As Integer

    Private Sub vec()

        f = -1

        contador = contador + 1

        f = f + contador

        sueldo(f) = TXTsueldo.Text

        If sueldo(0) > 0 Then

            MessageBox.Show(sueldo(0))

        End If

        If sueldo(1) > 0 Then

            MessageBox.Show(sueldo(1))

        End If

        If sueldo(2) > 0 Then

            MessageBox.Show(sueldo(2))

        End If

        If sueldo(3) > 0 Then

            MessageBox.Show(sueldo(3))

        End If

    End Sub

    Private Sub CMDenviar_Click(sender As Object, e As EventArgs) Handles CMDenviar.Click

        vec()

    End Sub

End Class

Dim contador As Integer ' Esta la uso para todo lo que necesite contar

    Private sueldo(3) As Integer ' Mi Estructura para guardar 

    Dim f As Integer

    Private Sub vec()

        f = f + 1

        If txtsueldo.Text > 0 Then

            sueldo(f) = txtsueldo.Text

            MsgBox("Registro Ingresado")

            txtsueldo.Text = ""

            txtsueldo.Focus()

        End If

        If f = 3 Then

            Me.CMDenviar.Enabled = False

            Me.Button1.Enabled = True

        End If

    End Sub

    Private Sub mostrar_vec()

        For X = 1 To sueldo.LongLength

            MessageBox.Show( "El Item "  & x-1  & "Tiene el valor de :  " &  sueldo(X - 1))

        Next X

    End Sub

    Private Sub CMDenviar_Click(sender As System.Object, e As System.EventArgs) Handles CMDenviar.Click

        vec()

    End Sub

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        f = f - 1 'Asi cuando inicia el formulario dices que f = f-1

    End Sub

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

        mostrar_vec()

    End Sub

End Class