Sub Dear宇宙 ()
Dim x As Organizm
For Each x In Spase("universe").FixedStar("earth")
If x.identity = "TEN" Then
MsgBox "finding!" & _
vbNewLine & x.Address
Exit Sub
End If
Next
MsgBox "not found."
End Sub