VBA Macro - If statement based on length of text

Hey guys

I'm having a bit of trouble with a macro designed to read the length text in a cell and if it = a certain length then perform an action (in this case Text to column)

Here is a small sample of the data I'm working with:
Tue 02/11/2014
LastBootUpTime
20140211082244.222441+000 <<

Tue 02/11/2014
LastBootUpTime
20140211082244.222441+000 <<

Tue 02/11/2014
LastBootUpTime
20140211082244.222441+000 <<

Tue 02/11/2014
LastBootUpTime
20140211082244.222441+000 <<

Tue 02/11/2014
LastBootUpTime

Tue 02/11/2014
LastBootUpTime
20140211082244.222441+000 <<
*End Sample*

The text length I want it to perform the action on is highlighted with "<<" if the length of text does not meet the required number then I want the statement to skip and move onto the next one.

I have the text to column code already done with relative references however the long text string I want the statement activated on is not always present which means that the pattern (0,3) is not always consistent.

Any help would be greatly appreciated.

Chris

thanks for the speedy reply and apologies for the lack of speed in mine.

Attached is my workbook with a small sample of data.

The purpose of my project is this (if it helps):
I have knocked together a command prompt script that remotely checks the uptime of various PCs around my work and the local time that the script was run and outputs the results to a .CSV file so it can be easily read by excel.

The problem is that if the remote pc is off it reports one blank line rather than the two lines of uptime data that would ordinarily be reported. This means that my data does not follow a consistent pattern and this means I cannot use relative references in a loop as I hoped. What I need is an IF statement that will check every line of data and if the line meets the text length required then it will activate and perform an action (I can sort out the action myself) if it does not meet the text length then I need it to skip onto the next line until there is no data left to check.

Apologies if I am unclear in anyway and thank you in advance for your time.

Chris

I ended up solving the issue for myself, but thank you for your time anyway

For those who wish to know this is how I did it:
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo endsub

Dim x As Integer
Dim y As String

y = ActiveCell
x = Len(ActiveCell)


If Len(ActiveCell) = 25 Then GoTo actionsection

(Other Action if criteria not met here)

Actionsection:
(Whatever you want it to do when it meets the criteria)

Application.ScreenUpdating = True
Application.DisplayAlerts = True