[Resolvido]Separar campo usando caracter

Olá!
Prezados colegas, gostaria de separar este campo "100,0 x 50,0 x 1/4"" usando como referência o "x", ficando dessa forma:
valor(1) = 100,0
valor(2) = 50,0
valor(3)= 1/4"
Se for possível, poderiam me dar uma luz?
Desde já, muito obrigado!!

Código:

Dim valor

valor = split("100,0 x 50,0 x 1/4"""," x ")

Não esqueça de marcar o tópico como resolvido.

Tópico retirado da sala de Consultas por não ter relação com este tipo de objeto. Favor atentar-se a descrição de cada sala ao abrir tópicos.

Bom dia!
DamascenoJr, desde já, muito obrigado pelo retorno
Me expressei mal em minha dúvida. Dei apenas um valor para exemplo do que pretendo.
Na vdd, eu tenho uma tabela com vários registros. (Anexei foto)
Por isso pensei na possibilidade de fazer através de uma consulta.

COD PROD TIPO BITOLA
394 """U""DOBR CHAPA" AC 75,0 x 38,0 x 3,00
80 """U""DOBR CHAPA" AC "130,0 x 30,0 x 1/4"""
81 """U""DOBR CHAPA" AC "75,0 x 40,0 x 1/8"""
88 """U""DOBR CHAPA" AC 100,0 x 30,0 x 3,00
89 """U""DOBR CHAPA" AC 280,0 x 50,0 x 3,00
361 BR CHATA AC "119,0 x 1"""
362 BR CHATA INOX "66,0 x 1/4"""
363 BR CHATA INOX "120,0 x 5/8"""
364 BR CHATA AL "4"" x 6,00"

No meu caso, preciso que o "x" seja a referência para fazer a separação
O primeiro valor antes do x, até consegui extrair usando código do colega criquio:
NomeCampo: Esquerda([bitola];EmSeq(1;[bitola];"x")-1)

Prevejo que ainda falta esclarecimento.

A consulta servirá para um código VBA?
Você deseja separa para exibir na consulta?

Desejo exibir na consulta.
Envei uma pqna parte da tabela que tenho atualmente.

Cada valor em uma nova coluna, certo?

Se for, será preciso um código que percorra todos os valores para descobrir quantas colunas devem ser criadas. ou 2 ou 3 ou 4 etc.

Isso mesmo. Não tenho muito conhecimento,  mas criando 4 colunas e jogando as partes separadas em casa uma já resolva.
Não tenho muito conhecimento do access, o pouco que desenvolvi foi com a ajuda dos colegas aqui.
Val1 val2 val3 val4
100 50 3

Exemplo em anexo.

Abaixo função utilizada.

Código:

Public Function fncQuebraQuebra(ByVal varTexto, ByVal strQuebrador As String, ByVal bytQualQuero As Byte)

    Dim varTemp As Variant
   
    If Nz(varTexto) = "" Then
        fncQuebraQuebra = ""
    Else
   
        varTemp = Split(varTexto, strQuebrador)
       
        If bytQualQuero > (UBound(varTemp) + 1) Then
            fncQuebraQuebra = ""
        Else
            fncQuebraQuebra = varTemp(bytQualQuero - 1)
        End If
   
    End If

End Function

Ressalto que a função será executada 4 vezes para cada linha para trabalhar os dados. Isso terá grande impacto no desempenho dependendo da quantidade de registros que a consulta trará.

Se os dados serão sempre exibidos quebrados, seria melhor já armazená-los na tabela separados.

Não esqueça o resolvido do tópico.

Bom dia!

Prezado DamascenoJr,
Vou atualizar a minha tabela utilizando seu código e a partir daí, salvar os dados separadamente.
Aproveitando a oportunidade, vc teria alguma indicação de material de estudo?
Desde já, muito obrigado mesmo pela força!

Resolvido!!
Muito obrigado!!!