输入任意长度的字符串，将该字符串中的字符按ASCII码值升序排列后输出

你是说书上让你补全代码？
那么，你把原来的题目，完整写上来，添空处有几行写清楚！
我读了你的代码，修改如下：我测试了几个，没有发现问题。
Dim c$, s$, a As String * 1 's变量显然应该用字符类型
Dim k As Integer, j As Integer '这个是我加的变量声明
c = Text1

s = Left(c, 1)
k = 2
Do
a = Mid(c, k, 1)
j = 1
Do
If a < Mid(s, j, 1) Then
s = Left(s, j - 1) & a & Right(s, Len(s) - (j - 1)) '这个没有变化
Exit Do ‘这个是我加的
End If
j = j + 1
Loop Until j > Len(s) '这个是我修改的
If j = k Then s = s & a
k = k + 1
Loop Until k > Len(c)
Text2 = s

程序这样编写，很让人挠头啊，含义不明的变量，两层循环嵌套却没有说明，改写如下：
Private Sub Command1_Click()
Dim c$, i%, j%, a As String * 1
c = Text1
For i = 1 To Len(c) '冒泡排序法
For j = 1 To i
If Mid(c, i, 1) < Mid(c, j, 1) Then
a = Mid(c, i, 1)
Mid(c, i, 1) = Mid(c, j, 1)
Mid(c, j, 1) = a
End If
Next
Next
Text2 = c
End Sub