VBA code in 1 line

[Formula11]

How can you place the following VBA code in 1 line.
Tried using semi-colon ":" but does not work.

Counter = 0
For i = 1 To Len(Item)
   If IsNumeric(Mid(Item, i, 1)) = True Then
    Counter = Counter + 1
   End If
Next i

Counter = 0: For i = 1 To Len(Item): If IsNumeric(Mid(Item, i, 1)) = True Then: Counter = Counter + 1: End If: Next i

 

[Formula11]

Rick, this is actually closer to the generic solution I was looking for. Code below works.
What is the function then not allowing the 1-line option? Is it For/Next or If/End If.

Counter = 0: For i = 1 To Len(Item): Counter = Counter - IsNumeric(Mid(Item, i, 1)): Next

 

[Rick Rothstein]

Yes... because If..Then has a single line version, there is no way to "end" it... if you try to use a colon, it just links the command after it to the statement attached to the Then keyword. Given that you only need to add 1 when the IsNumeric is True and 0 otherwise, my code line makes use of the fact that, in VBA, False is equivalent to zero and True is equivalent to minus one.

 

[Formula11]

OK thanks for clarifying.

 

[jimrward]

What do you hope to gain from using a single line of code
it makes it difficult to read for future maintenance either for yourself or others
it doesn’t save much in storage
it doesn’t matter to vba whether it is single or multi line

 

[Formula11]

For me personally it makes it a lot easier to read.
More of the overall module can then be seen on the screen.