Dim namearray() As String
Dim i As Integer
 
name = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)
 
name = namearray(i)
i = i + 1

Dim namearray() As String
Dim NewName As String
Dim i As Integer
 
i = 0
NewName = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)
Do Until String.IsNullOrEmpty(NewName)
  ReDim Preserve namearray(i)
  namearray(i) = NewName
  i += 1
  NewName = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)
Loop

    Dim listOfNames As New List(Of String)
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
                  ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim newName As String = ""
        newName = InputBox("Enter the candidates name:", _
                                  "candidatename", "", 500, 500)
        If Not String.IsNullOrEmpty(newName) Then
            listOfNames.Add(newName)
        End If
        BindListbox()
    End Sub
 
    Private Sub BindListbox()
        Me.ListBox1.Items.Clear()
        Try
            Me.ListBox1.Items.AddRange(listOfNames.ToArray)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

' Form1 Declaration
Dim aCandidate(0) As String
 
' sub Button6_Click
Dim I As Integer
I = UBound(aCandidate, 1) + 1
ReDim Preserve aCandidate(I)
aCandidate(I) = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)