Fungsi untuk menguji bilangan prima di Visual Basic (VB6)  Fungsi ini berguna untuk menguji apakah suatu bilangan adalah bilangan prima atau bukan.                           ' ' @param Integer number - Angka yang akan diuji ' @return Boolean - True jika benar bilangan prima dan False jika bukan ' Function isPrime(number As Integer) As Boolean Dim i As Integer ' angka 0 dan 1 bukan bilangan prima If number = 0 Or number = 1 Then     isPrime = False     Exit Function End If ' bagi number dengan angka selain 0, 1, dan dirinya sendiri For i = 2 To number - 1     If number Mod i = 0 Then         isPrime = False         Exit Function     End If Next i isPrime = True End Function