Visual Basic - SEPARAR NUMERO PARTE ENTERO Y DECIMAL

Dim ValorDecimal As Double

Dim ParteEntera as Long

Dim ParteDecimal as Double

ValorDecimal = 10.567890

ParteEntera = Int(ValorDecimal)

ParteDecimal = ValorDecimal - ParteEntera

Dim a, b, j, x As Double

Dim c, d, e As String

c = ""

d = ""

e = ""

For i = 1 To Len(Text1)

c = Mid(Text1, i, 1)

If x = 0 Then

If (c <> ".") Then

d = d & c

Else

j = i

x = 1

End If

End If

Next

For i = j To Len(Text1)

c = Mid(Text1, i, 1)

If (c <> ".") Then

e = e & c

End If

Next

MsgBox d

MsgBox e

Dim a() As String

    a = Split(Text1, ".")

    MsgBox a(0)

    MsgBox a(1)