Excel vba中，逐行读取txt字符串后，想返回每一行空格后面的字符，空格个数不确定，应该怎样写？

Question

例子——人数： 42

需要时间： 365

这是txt中的数据，逐行读取后，想把每行空格后面的数字提取出来，空格数不固定，数字长度也不固定。
字符串开头也有空格

Answer 1

s=" 需要时间： 365 "
s=trim(s) '把s前后的空格截掉
pos=instr(s,"： ")
n=val(mid(s,pos+2)) ‘n=365