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

Dim n, counter As Integer

n = InputBox("How many Employees?")
counter = 0
While (counter <= n)
MsgBox("Hello " & counter)

counter = counter + 1

End While
MsgBox("Bye Bye " & n)

End Sub
End Class