脱吸塔设冷、热进料的目的是什么？

下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。
Private Sub numCoun()
Dim num As Integer
s＄="software And hardware"
num=Len(s＄)
For i=1 To num
b＄=______
Ifb＄="a"Then x=x+1
Next i
Print "x=";x
End Sub