Dim varLeftPart As Variant
Dim varRightPart As Variant
Dim varWhole As Variant
Dim sngWhole As Single
     
varLeftPart = 4
varRightPart = 5
varWhole = varLeftPart & "," & varRightPart
            
mvarErrorResult = Round(varWhole, 0)  'не получается 5!
            

sngWhole = 4.5
sngWhole = Round(sngWhole, 0)    'так тоже не получается!