подсчитать колво строк в ячейке без вывода на экран

[gramp]

если переменная имеет вид
Подшипник|
Втулка|
гайка|
Болт|
Шайба|
и все это при выводе пишется в ячейку
реально ли определить колво строк без вывода в ячейку?

[Hugo121]

Sub tt()
x = "Подшипник|" & vbNewLine & "Втулка|" & vbNewLine & "гайка|" & vbNewLine & "Болт|" & vbNewLine & "Шайба|"
y = Len(x) - Len(Replace(x, "|", ""))
MsgBox y
End Sub

[R Dmitry]

Sub gramp()
dim a$
a=..........
MsgBox UBound(Split(a, "|"))
End Sub
на конкурс краткости

[gramp]

большое спасибо, уважаемые )