Cadeia de caracteres

Prezados,

Tenho uma tabela em Access 2010  com títulos de softwares capturados nas máquinas da rede.
Preciso separar o título dos softwares do número da versão que vem junto, lembrando que os títulos tem tamanhos diferentes, conforme abaixo:

Software
Adobe Photoshop Lightroom 2 64-bit
Adobe Photoshop Lightroom 3.6 64-bit
Adobe Photoshop Lightroom 4.4 64-bit
Adobe Photoshop Lightroom 5.7 64-bit
Adobe Photoshop Lightroom 5.7.1 64-bit
Apache HTTP Server 2.2.15
Apache HTTP Server 2.2.17
Apache HTTP Server 2.2.21
Apache HTTP Server 2.2.22
Apache Tomcat 6.0
Apache Tomcat 7.0
Apache Tomcat 7.0
Apache Tomcat 7.0
Apache Tomcat 7.0
Apache Tomcat 7.0

Obrigado,

Mbtec.

Bom dia, e bem-vindo ao fórum

Código:

Function Titulo(strNome As String) As String
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Titulo = Mid(strNome, 1, Len(strNome) - Len(Versao(strNome)) - 1)
End Function

Function Versao(strNome As String) As String
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim I As Integer, Caracter As String
    For I = 1 To Len(strNome)
        Caracter = Mid(strNome, I, 1)
        If InStr(1, "0123456789", Caracter) > 0 Then Exit For
    Next
    Versao = Mid(strNome, I)
End Function


Olá Alexandre ,

Agradeço o retorno.
Vou implementar...
Abraço.

mbtec.