If MSComm1.PortOpen = True Then
  MsgBox "ok"
Else
  MsgBox "koo"
End If

Dim a, b As Integer
Dim url() As String
url() = Split(Text1.Text, " ")

For a = 0 To UBound(url)
  For b = a + 1 To UBound(url)
    If url(a) = url(b) Then
      MsgBox "palabra repetida: " & url(a)
    End If
  Next b
Next a

Combo1.AddItem Text1.Text

Private Sub Form_Load()
Combo1.AddItem "Hola"
Combo1.AddItem "a"
Combo1.AddItem "todos"
End Sub

Private Sub combo1_click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub

Combo1.AddItem Text1.Text

Private Sub Check1_Click()
Check1.Value = 0
Check2.Value = 1
Check3.Value = 2
End Sub

Label1.Caption = ""
For x = 1 To 10
   Label1.Caption = Label1.Caption & (Text1.Text & " x " & x & " = " & Val(Text1.Text) * x) & vbCr
Next