[Resolvido]Separar o inteiro e o decimal de um valor

Olá pessoal,
Preciso pegar o resultado de um valor inteiro e decimal e separá-los


Private Sub Report_Load()
Dim rst As DAO.Recordset
Dim strsql As String

strsql = "Select Count(*) As totalClientes From tbClientes WHERE setor = 1"
Set rst = CurrentDb.OpenRecordset(strsql)

'Aqui me retorna o total (6,294)
txtTotal.Value = rst.Fields("totalClientes") * 300 / 5100

Me.txtInteiro.Value =

Me.txtDecimal.Value =

rst.Close
Set rst = Nothing
End Sub

Bom dia Avelino,

No resultado está me retornando os valores:

Inteiro: 7 // Aqui Correto
Decimal: 0,882352941176471

Sobre a parte do decimal, é o seguinte
No decimal, o meu pedido a mais é que preciso transformar em um valor baseado conforme abaixo:

Sendo o valor fixo: 5100 // que corresponde uma parte do valor inteiro

1 ---- corresponde --- 5100
7 ---- corresponde --- 35700
0,882 --- corresponde --- x

Preciso retornar o decimal, baseado na proporção do valor 5100

Na regra de três simples sei que vai dar o resultado 14,994
Me.txtDecimal.Value = x 'Se possível aqui o valor arredondado para 15

Desde já muito agradecido

Mais detalhes:

É um controle correspondente a garrafas/copos, onde a garrafa contém 17 copos(valor padrão) , que os copos são medidos em 300ML

Sendo a garrafa 17 copos ---> corresponde a 5100 ML

Então com o resultado totalClientes por setores, me resultando como exemplo:

totalClientes: 134

Vou ter 7,882 (7 Garrafas e 0,882)
Neste 0,882 que preciso transformar em copos, correspondentes 300ML

Melhorando aqui, o 0.882 é quase uma garrafa, se o resultado fosse  por exemplo 0,500, seria a metade de uma garrafa, ou seja, a metade de 5100, que iria ser 8,5 copos (oito copos e meio)

Boa tarde Avelino,
Deu para entender ?

Valeu, Mestre Avelino Sampaio. Fico muito agradecido pela ajuda.
Concluído, funcionando perfeitamente.
Deus abençoe ricamente.