remove decimal from field, append what was after decimal to before

Hi, I am trying to format some census tract data for a class project that has some cells that show up in the format "1234.56" but would like to remove the decimal and retain what was after it. the only manual way I can think of to do this would be to script text to columns to use the period as the separator, then send the decimal value to an arbitrary value that can just be recycled to hold the data and then maybe use an activecell & <arbitrary cell> to recall it. I'm stuck as to how to set the destination for the decimal data.

Thanks in advance for any tips you can offer.

p.s. i have to run out to take care of some things, so i appologize for any late replies.

Thank you all for the swift replies. Paul and Martin, those sound like viable options. Russell, you are correct in your interpretation. I don't quite understand how your solution would operate, but since this is my first experience wording with excel data that's to be expected. Being in GIS I'm sure I will be Needing to pick up a lot of handy tools. I will try out them all when I arrive home to get a feel for how each weighs for different situations. Thanks again for the tips. The multiply by 100 is so simple I'm mildly blushing to not have fought about it. I was overwhelmed by what I would have to do to script it that I didn't consider a more simple approach. I hope to learn and share in the years to come.

sample data has 3 main subtypes, a. 101, 102, etc b. 1000etc c. 1000.01 1000.02 ... 4803.01 etc

From the stance I started with, it started with thinking of it as a text field, so I wanted to attach a lead and 2 trail zeros, so,

Sub test_append()
ActiveCell = "0" & ActiveCell & "00"
End Seb

I was thrown off that it didn't seem to work, which reminded me that I needed to check my format settings (some strange flashback to freshmen year). this bit of code with the removal of the lead zero for four digit entries seemed appropriate but the decimal kind of threw a wrench into the plan.

Now this leads me to think about what functions I should look into to decide which needs what. I'm thinking

if 1-999 then a
elseif 1000-9999 then b
else

I'm not entirely sure if syntax is correct, however i can worry about that later. I feel I should be able to put together something. I'll post a more final design while I mix and see what I can break.

example starting cell format before parse(this will make sense if you read below)"Census Tract 1, Allegany County, Maryland"

so here's what i came up with for my code. i format the column to text first so lead zeros stay, then i run parse first, (data actually is formatted with the county and state as well, and since my last post i found it would be better to save them so parse may not follow what my original posts said)
then i run leadzerounder100000 to append lead zeros to values that are under 5 digits after multiplying by 100.

martin, though the find ad replace would have worked for entries with a decimal, multiplying by 100 did the same thing, since if entries were formated "1234.1" vs "1234.01",(this time around they didn't have any like this however a different state's tracts may be different) the first would need a trail zero, since with census tracts are always 6 digits i would have to add an extra piece of code to append a trail zero, and at that point i would have forgotten which ones needed to be weeded out.

Sub multi100()
ActiveCell = ActiveCell * 100
End Sub
Sub leadzerounder100000()
If ActiveCell <= 999 Then
ActiveCell = "000" & ActiveCell
ElseIf ActiveCell <= 9999 Then
ActiveCell = "00" & ActiveCell
ElseIf ActiveCell <= 99999 Then
ActiveCell = "0" & ActiveCell
End If
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Sub marginerrordelete()
'
' marginerrordelete Macro
'
' Keyboard Shortcut: Ctrl+e
'
    Selection.Delete Shift:=xlUp
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
End Sub
Sub stco_tract_join()
ActiveCell = ActiveCell.Offset(0, -2) & ActiveCell.Offset(0, -1)
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Sub parse()
'
' parse Macro
'

'
Application.DisplayAlerts = False
    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 9), Array(2, 9), Array(3, 1)), TrailingMinusNumbers:=True
    Application.Run "WPW_census_parse_scripts.XLSB!multi100"
    ActiveCell.Offset(1, 0).Range("A1").Select
    Application.DisplayAlerts = True
End Sub

this project has definitely made me think about things more modularly. when i started i had macros in too many different modules and files, but now have cleaned it up and broken down into the bare necessities. thank you for all the help. if you see any things i could make it go faster, please feel free to pitch in. my current mode of automation is to hotkey the 3 functions then hold the hotkey down until all lines are finished =P (this would suck for 10,000's of records)