Distinguishing variables

[ITbanter2k12]

I have 2 lists of variables, ex. Name,Name1... Name10 and Type,Type1...Type10. I also have a text box that I am entering a word into, ex. "Land" into txtWord. I want to find the Type variable that equals "Land", and then print the corresponding Name variable into a textbox, txtAnswer. What code would I use to do this? Hope I've been clear enough and I hope you can help.

[Hack]

Moved From The CodeBank (which is for sharing code rather than posting questions )

[dilettante]

Since programs normally don't have any reason to "look at themselves" there isn't really anything built in to support it.

If you simply want to associate a bunch of variables with a bunch of controls you might consider using data arrays and control arrays.

[Zvoni]

I think what he's looking for is the TypeName-Function or the TypeOf-Operator, but i doubt it's going to work on an entry in a textbox since the Text-Property per se returns a string.
What he might try is
IsNumeric, IsDate, but i haven't found anything like IsText or similiar

[Doogle]

I think this just a question about Arrays, it's not very clear.

Option Explicit

Private strTypes(2) As String
Private strNames(2) As String

Private Sub Command_Click()
Dim intI As Integer
txtAnswer.Text = vbNullString
If txtWord.Text <> vbNullString Then
    Do
        If UCase(strTypes(intI)) = UCase(txtWord.Text) Then
            txtAnswer.Text = strNames(intI)
        Else
            intI = intI + 1
        End If
    Loop Until intI > UBound(strTypes) Or txtAnswer.Text <> vbNullString
End If
End Sub

Private Sub Form_Load()
'
' List of Types
'
strTypes(0) = "Land"
strTypes(1) = "Sea"
strTypes(2) = "Air"
'
' List of Names
'
strNames(0) = "England"
strNames(1) = "Atlantic Ocean"
strNames(2) = "Cloud"
End Sub

[techgnome]

I was thinking Dictionary myself... or rather a Collection where the key is the "type" (eg, Land) and the value would be the corresponding name.

I'd provide a sample but I don't have VB6 on this machine.

-tg

[Zvoni]

Hope I've been clear enough and I hope you can help.

Well, asking this question and getting 4 different answers should give you a clue.....