Subscript out of range error [resolved]

[simonp]

In this code, if DomainQuery is empty I get this error:

Run-time error '9':
Subscript out of range

DomainQuery = Split(TempDomainQuery, " ")

If Len(DomainQuery(0)) < 3 Or Len(DomainQuery(0)) > 63 Then
    MsgBox "Domain names must be between 3 and 63 characters long.", vbExclamation + vbOKOnly, "Domain Name Error"
    Exit Sub
End If

Any ideas what might be wrong?

Simon