Dim TypeString As String = "String"         ' only as example...
        Dim TypeIAmLookingFor As Type = Nothing
 
        Dim appAssemblies() As Reflection.Assembly = _
          System.AppDomain.CurrentDomain.GetAssemblies()
 
        For Each assembly As Reflection.Assembly In appAssemblies
            For Each type As Type In assembly.GetTypes()
                If type.Name.ToLower = TypeString.ToLower Then
                    TypeIAmLookingFor = type
                    Exit For
                End If
            Next
            If Not TypeIAmLookingFor.Equals(Nothing) Then
                Exit For
            End If
        Next

fg viperbone