ASP - 하이픈 제거함수

Function Del_Dash(str)
 Dim tmpstr

 For j = 0 To Len(str)
  If Mid(str,(j+1),1) <> "-" Then
   tmpstr = tmpstr & Mid(str,(j+1),1)
  End If
 Next

 Del_Dash = tmpstr
End Function