Prime Number

    Function Prime(ByVal InputNumber As Integer) As Integer
        Dim i, j As Integer
        i = 1
        j = 0
        While i <= InputNumber
            If InputNumber Mod i = 0 Then j = j + 1
            i = i + 1
        End While
        If j = 2 Then
            Console.WriteLine("Number is Prime")
        Else
            Console.WriteLine("Not Prime")
        End If
        Console.WriteLine("Press Any Key to Exit")
        Console.ReadKey()
    End Function

Use IF in For

Dim i As Byte
For i = 1 To 100
       If i Mod 2 = 0 Then
              MsgBox(i)
       End If
Next

While in VB

Dim i As Integer
While i <> 100
       i = i + 1
End While

For in VB

dim i,j as byte
For i = 0 to 9
  j = i +j
Next i